home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Recent Doc Max Number 1.xpl < prev    next >
Text File  |  2001-04-13  |  1KB  |  44 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start Menu\Options"
  5. "NAME"="Maximum Number of Recent Documents"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Maximum Number:"
  8. "DESCRIPTION 1"="Here you can specify how many shortcuts are created on the Documents menu on the Start Menu. By default, this is 15, but you can change this to any number you want."
  9. "DESCRIPTION 2"="To reset the option to its default value, clear the box."
  10. "COMMENT 1"="For more information see http://www.winguides.com/registry/display.php/828/"
  11. "COMMENT 2"="Updated for WinXP by CptSiskoX.  Rock, paper, scissors, anyone?"
  12. "VERSION"="1.1"
  13. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "CONTACTURL"="http://www.neilrt.cwc.net/"
  16. "OSVERSION"="000101"
  17.  
  18. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\MaxRecentDocs"
  19.  
  20. SUB Plugin_Initialize
  21.  s=RegReadValue(sP)
  22.  Call SetUIElement(1,s)
  23. END SUB
  24.  
  25. SUB Plugin_CheckData(ElementIndex)
  26. END SUB
  27.  
  28. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  s=GetUIElement(1)
  30.  if Len(s)<=0 then
  31.   b=RegReadValue(sP)
  32.   if IsEmpty(b)=false then
  33.    Call RegDeleteValue(sP)
  34.   end if
  35.  else
  36.   Call RegWriteValue(sP,s,2)
  37.  end if
  38.  
  39.  Call Restart()
  40. END SUB
  41.  
  42. SUB Plugin_Terminate
  43. END SUB
  44.